inherited FCadastroPedidoAlameda: TFCadastroPedidoAlameda
  Left = 293
  Top = 118
  Caption = 'FCadastroPedidoAlameda'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  object Label31: TLabel [0]
    Left = 160
    Top = 173
    Width = 61
    Height = 16
    Caption = 'Referencia'
  end
  object Label34: TLabel [1]
    Left = 160
    Top = 189
    Width = 45
    Height = 16
    Caption = 'Label14'
  end
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Alignment = taRightJustify
            Expanded = False
            FieldName = 'PED_CODIGO'
            Title.Alignment = taRightJustify
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_FORNECEDOR_DESC'
            Title.Caption = 'Fornecedor'
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_DATASITUACAO'
            Title.Caption = 'Data Solicita'#231#227'o'
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_CONTATO'
            Title.Caption = 'Contato'
            Width = 64
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_VALOR_PEDIDO'
            Title.Caption = 'Valor Pedido'
            Width = 64
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
          object BtnEmissao: TBitBtn
            Left = 310
            Top = 5
            Width = 116
            Height = 25
            Caption = 'Emiss'#227'o'
            TabOrder = 6
            Glyph.Data = {
              36010000424D3601000000000000760000002800000012000000100000000100
              040000000000C000000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008F0000000000
              0000080000008F7777777777777708000000F77777777777777770000000F888
              88888888888880000000F8A288888808080880000000F88FFFFFFFFFFFFF8000
              0000FFF8888888888888FF000000888FFFFFFFFFFFF788000000888F88888888
              88F788000000888FFFFFFFFFFFF788000000888F8888888888F788000000888F
              FFFFFFFFFFF788000000888F8888888888F788000000888FFFFFFFFFF7778800
              0000888FFFFFFFFFF7F888000000888FFFFFFFFFF78888000000}
          end
        end
        object PCPedido: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 389
          ActivePage = TItens
          Align = alClient
          TabOrder = 2
          object TAbertura: TTabSheet
            Caption = 'Pedido'
            object Label1: TLabel
              Left = 181
              Top = 3
              Width = 71
              Height = 16
              Caption = 'Data Pedido'
            end
            object Label3: TLabel
              Left = 2
              Top = 5
              Width = 58
              Height = 16
              Caption = 'N'#186' Pedido'
            end
            object lbFornecedor: TLabel
              Left = 2
              Top = 50
              Width = 92
              Height = 16
              Caption = 'Fornecedor (F8)'
            end
            object Label20: TLabel
              Left = 2
              Top = 95
              Width = 142
              Height = 16
              Caption = 'Condi'#231#227'o de Pagamento'
            end
            object Label30: TLabel
              Left = 175
              Top = 135
              Width = 68
              Height = 16
              Caption = 'Observa'#231#227'o'
            end
            object Label2: TLabel
              Left = 418
              Top = 50
              Width = 72
              Height = 16
              Caption = 'Contato (F8)'
            end
            object QtdObs: TLabel
              Left = 760
              Top = 114
              Width = 65
              Height = 16
              Alignment = taRightJustify
              AutoSize = False
            end
            object Label6: TLabel
              Left = 419
              Top = 93
              Width = 76
              Height = 16
              Caption = 'Data Entrega'
            end
            object Label7: TLabel
              Left = 536
              Top = 93
              Width = 58
              Height = 16
              Caption = 'N'#186' Pedido'
            end
            object Label9: TLabel
              Left = 633
              Top = 93
              Width = 84
              Height = 16
              Caption = 'N'#186' Nota Fiscal'
            end
            object Label10: TLabel
              Left = 5
              Top = 199
              Width = 86
              Height = 16
              Caption = 'Transportadora'
            end
            object Label11: TLabel
              Left = 7
              Top = 244
              Width = 61
              Height = 16
              Caption = 'Solicitante'
            end
            object Label12: TLabel
              Left = 251
              Top = 285
              Width = 82
              Height = 16
              Caption = 'Data Situa'#231#227'o'
            end
            object DBDTData: TDBDateEdit
              Left = 181
              Top = 22
              Width = 100
              Height = 23
              DataField = 'PED_DATA'
              DataSource = dsCadastro
              ReadOnly = True
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 1
            end
            object DBDatePrevisao: TDBDateEdit
              Left = 419
              Top = 111
              Width = 100
              Height = 23
              DataField = 'PED_DATAENTREGA'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 5
            end
            object DBLCBFornecedor: TDBLookupComboBox
              Left = 2
              Top = 67
              Width = 399
              Height = 22
              Ctl3D = False
              DataField = 'PED_FORNECEDOR'
              DataSource = dsCadastro
              KeyField = 'FORN_CODIGO'
              ListField = 'FORN_RAZAO'
              ListSource = DSFornecedor
              ParentCtl3D = False
              TabOrder = 2
            end
            object edCodigo: TDBEdit
              Left = 2
              Top = 23
              Width = 58
              Height = 22
              Ctl3D = False
              DataField = 'PED_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
            object edCondPagto: TDBEdit
              Left = 2
              Top = 112
              Width = 399
              Height = 22
              Ctl3D = False
              DataField = 'PED_CONDPAGTO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 6
            end
            object edObs: TDBMemo
              Left = 175
              Top = 154
              Width = 530
              Height = 39
              Ctl3D = False
              DataField = 'PED_OBS'
              DataSource = dsCadastro
              MaxLength = 255
              ParentCtl3D = False
              TabOrder = 4
            end
            object GroupBox2: TGroupBox
              Left = 297
              Top = 1
              Width = 405
              Height = 44
              Caption = '  Itens  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 7
              object lbQuantidade: TLabel
                Left = 8
                Top = 22
                Width = 66
                Height = 16
                Caption = 'Quantidade'
              end
              object DBText12: TDBText
                Left = 96
                Top = 22
                Width = 57
                Height = 16
                Alignment = taRightJustify
                AutoSize = True
                DataField = 'PED_VALOR_TOT_ITENS'
                DataSource = dsCadastro
              end
              object Label5: TLabel
                Left = 216
                Top = 22
                Width = 30
                Height = 16
                Caption = 'Valor'
              end
              object DBText2: TDBText
                Left = 280
                Top = 22
                Width = 97
                Height = 16
                Alignment = taRightJustify
                AutoSize = True
                DataField = 'PED_VALOR_TOT_ITENS'
                DataSource = dsCadastro
              end
            end
            object GroupBox6: TGroupBox
              Left = 3
              Top = 147
              Width = 157
              Height = 47
              Caption = '  Descontos em %  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 8
              object DBEdit2: TDBEdit
                Left = 15
                Top = 18
                Width = 34
                Height = 22
                Ctl3D = False
                DataField = 'PED_PERCONDPAGTO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 0
              end
              object DBEdit3: TDBEdit
                Left = 61
                Top = 18
                Width = 34
                Height = 22
                Ctl3D = False
                DataField = 'PED_PERCONDPAGTO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 1
              end
              object DBEdit4: TDBEdit
                Left = 107
                Top = 18
                Width = 34
                Height = 22
                Ctl3D = False
                DataField = 'PED_PERCONDPAGTO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 2
              end
            end
            object edContato: TDBEdit
              Left = 418
              Top = 67
              Width = 285
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PED_CONTATO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 3
            end
            object DBRadioGroup1: TDBRadioGroup
              Tag = 5
              Left = 6
              Top = 291
              Width = 235
              Height = 36
              Caption = '  Situa'#231#227'o  '
              Color = clBtnFace
              Columns = 2
              Ctl3D = False
              DataField = 'PED_SITUACAO'
              DataSource = dsCadastro
              Enabled = False
              Items.Strings = (
                'N'#227'o Encerrado'
                'Encerrado')
              ParentColor = False
              ParentCtl3D = False
              TabOrder = 9
              Values.Strings = (
                '0'
                '1'
                '2')
            end
            object GroupBox1: TGroupBox
              Left = 71
              Top = 16
              Width = 97
              Height = 29
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 10
              object Label4: TLabel
                Left = 8
                Top = 10
                Width = 81
                Height = 16
                Alignment = taCenter
                AutoSize = False
                Caption = 'N'#195'O Emitido'
              end
            end
            object DBEdit1: TDBEdit
              Left = 535
              Top = 112
              Width = 83
              Height = 22
              Ctl3D = False
              DataField = 'PED_FRETE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 11
            end
            object DBEdit5: TDBEdit
              Left = 632
              Top = 112
              Width = 90
              Height = 22
              Ctl3D = False
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 12
            end
            object DBLookupComboBox1: TDBLookupComboBox
              Left = 5
              Top = 216
              Width = 399
              Height = 22
              Ctl3D = False
              DataField = 'PED_FORNECEDOR'
              DataSource = dsCadastro
              KeyField = 'TRANS_CODIGO'
              ListField = 'TRANS_NOME'
              ListSource = DSTransportadora
              ParentCtl3D = False
              TabOrder = 13
            end
            object DBRadioGroup2: TDBRadioGroup
              Tag = 5
              Left = 421
              Top = 202
              Width = 189
              Height = 36
              Caption = '  Frete  '
              Color = clBtnFace
              Columns = 2
              Ctl3D = False
              DataField = 'PED_FRETE'
              DataSource = dsCadastro
              Enabled = False
              Items.Strings = (
                'Emitente'
                'Destinat'#225'rio')
              ParentColor = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 14
              Values.Strings = (
                '0'
                '1')
            end
            object DBEdit6: TDBEdit
              Left = 6
              Top = 263
              Width = 235
              Height = 22
              Ctl3D = False
              DataField = 'PED_SOLICITANTE_DESC'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 15
            end
            object DBDateEdit1: TDBDateEdit
              Left = 251
              Top = 303
              Width = 110
              Height = 23
              DataField = 'PED_DATASITUACAO'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 16
            end
          end
          object TItens: TTabSheet
            Caption = 'Itens do Pedido'
            ImageIndex = 1
            object Label66: TLabel
              Left = 4
              Top = 105
              Width = 67
              Height = 16
              Caption = 'C'#243'digo (F8)'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label35: TLabel
              Left = 7
              Top = 228
              Width = 66
              Height = 16
              Alignment = taCenter
              Caption = 'Quantidade'
            end
            object Label18: TLabel
              Left = 96
              Top = 228
              Width = 65
              Height = 16
              Caption = 'Vr. Unit'#225'rio'
            end
            object Label19: TLabel
              Left = 257
              Top = 228
              Width = 49
              Height = 16
              Caption = 'Vr. Total'
            end
            object Label24: TLabel
              Left = 153
              Top = 105
              Width = 85
              Height = 16
              Caption = 'Descri'#231#227'o (F8)'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label16: TLabel
              Left = 8
              Top = 178
              Width = 61
              Height = 16
              Caption = 'Referencia'
            end
            object Label13: TLabel
              Left = 152
              Top = 178
              Width = 53
              Height = 16
              Caption = 'Tamanho'
            end
            object Label21: TLabel
              Left = 302
              Top = 178
              Width = 20
              Height = 16
              Caption = 'Cor'
            end
            object Label37: TLabel
              Left = 442
              Top = 178
              Width = 40
              Height = 16
              Caption = 'Tecido'
            end
            object Label14: TLabel
              Left = 387
              Top = 228
              Width = 55
              Height = 16
              Caption = 'Desconto'
            end
            object Label15: TLabel
              Left = 528
              Top = 228
              Width = 49
              Height = 16
              Caption = 'Vr. Final'
            end
            object DBLCBProdutoMercadoria: TDBLookupComboBox
              Tag = 10
              Left = 153
              Top = 124
              Width = 631
              Height = 22
              Hint = '(F3) Visualizar Descri'#231#227'o - (F7) Todos - (F8) Cliente'
              Ctl3D = False
              DataField = 'ITENS_PED_PRODUTO'
              DataSource = dsItens
              KeyField = 'PROD_CODIGO'
              ListField = 'PROD_DESCRICAOSAI'
              ListSource = DSProduto_Mercadoria
              ParentCtl3D = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              OnExit = DBLCBProdutoMercadoriaExit
              OnKeyDown = DBLCBProdutoMercadoriaKeyDown
            end
            object EdCodProdutoMercadoria: TEdit
              Tag = 10
              Left = 4
              Top = 124
              Width = 80
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              Text = 'EdCodProdutoMercadoria'
              OnExit = EdCodProdutoMercadoriaExit
              OnKeyDown = EdCodProdutoMercadoriaKeyDown
            end
            object RxDBValorUnitario: TRxDBCalcEdit
              Tag = 10
              Left = 96
              Top = 247
              Width = 77
              Height = 23
              DataField = 'ITENS_PED_VALOR'
              DataSource = dsItens
              Ctl3D = False
              DecimalPlaces = 4
              DisplayFormat = '0.,0000'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 3
              OnExit = RxDBValorUnitarioExit
            end
            object RxDBValorTotal: TRxDBCalcEdit
              Tag = 10
              Left = 178
              Top = 247
              Width = 129
              Height = 23
              DataField = 'ITENS_PED_VALOR_TOTAL'
              DataSource = dsItens
              Ctl3D = False
              DisplayFormat = '0.,00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 4
            end
            object RxDBCQtd: TRxDBCalcEdit
              Tag = 10
              Left = 7
              Top = 247
              Width = 84
              Height = 23
              DataField = 'ITENS_PED_QUANTIDADE'
              DataSource = dsItens
              Ctl3D = False
              DecimalPlaces = 4
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 2
              OnExit = RxDBCQtdExit
            end
            object Panel6: TPanel
              Left = 0
              Top = 325
              Width = 834
              Height = 33
              Align = alBottom
              TabOrder = 5
              object BitSalvarItem: TBitBtn
                Tag = 10
                Left = 656
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Salvar'
                TabOrder = 0
                OnClick = BitSalvarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
                  7700333333337777777733333333008088003333333377F73377333333330088
                  88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
                  000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
                  FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
                  99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
                  99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
                  99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
                  93337FFFF7737777733300000033333333337777773333333333}
                NumGlyphs = 2
              end
              object BitCancelarItem: TBitBtn
                Tag = 10
                Left = 742
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Cancelar'
                TabOrder = 1
                OnClick = BitCancelarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
                  33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
                  993337777F777F3377F3393999707333993337F77737333337FF993399933333
                  399377F3777FF333377F993339903333399377F33737FF33377F993333707333
                  399377F333377FF3377F993333101933399377F333777FFF377F993333000993
                  399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
                  99333773FF777F777733339993707339933333773FF7FFF77333333999999999
                  3333333777333777333333333999993333333333377777333333}
                NumGlyphs = 2
              end
            end
            object Panel4: TPanel
              Left = 0
              Top = 0
              Width = 834
              Height = 33
              Align = alTop
              TabOrder = 6
              object BitInseriItem: TBitBtn
                Tag = 10
                Left = 3
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Incluir'
                TabOrder = 0
                OnClick = BitInseriItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
                  333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
                  0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
                  07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
                  07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
                  0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
                  33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
                  B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
                  3BB33773333773333773B333333B3333333B7333333733333337}
                NumGlyphs = 2
              end
              object BitEditarItem: TBitBtn
                Tag = 10
                Left = 90
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Editar'
                TabOrder = 1
                OnClick = BitEditarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
                  000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
                  00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
                  F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
                  0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
                  FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
                  FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
                  0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
                  00333377737FFFFF773333303300000003333337337777777333}
                NumGlyphs = 2
              end
              object BitExcluirItem: TBitBtn
                Tag = 10
                Left = 177
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Excluir'
                TabOrder = 2
                OnClick = BitExcluirItemClick
                Glyph.Data = {
                  B2050000424DB205000000000000360400002800000012000000130000000100
                  0800000000007C010000C30E0000C30E00000001000000000000000000007B00
                  0000BD000000FF0000007B7B000000FF0000FFFF000000315A0008427300084A
                  730000007B007B007B00084A7B0008527B0021527B00007B7B007B7B7B00004A
                  840008528400105284002963840008528C00085A8C00185A8C0018638C002963
                  8C0008529400185A9400296B9400316B94002973940031739400085A9C001863
                  9C0018739C0029739C0031739C0031849C00005AA5002173A5003973A500297B
                  A500186BAD00106BB500317BB5002984B5004A8CB500086BBD000073BD001073
                  BD001873BD00217BBD004284BD00318CBD004A8CBD005294BD005A9CBD00BDBD
                  BD001073C600007BC600217BC600428CC6004A8CC6005A9CC6000084CE000884
                  CE00398CCE005A9CCE00639CCE001884D6002184D600088CD600108CD6004294
                  D600399CD6004A9CD600529CD6005A9CD6005AA5D60063ADD6001884DE002184
                  DE00188CDE001094DE001894DE003194DE00299CDE004AA5DE005AA5DE004AB5
                  DE00189CE700219CE700429CE7005AA5E7005AADE70063ADE7006BB5E70021A5
                  EF0029A5EF0031A5EF0063B5EF006BBDEF0029ADF70031ADF7006BBDF7000000
                  FF00FF00FF0031B5FF0039B5FF0042B5FF0039BDFF0042BDFF0042C6FF004AC6
                  FF006BC6FF004ACEFF0052CEFF0052D6FF005ADEFF0063E7FF0000FFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393939393939
                  3939393939393939393939690000396939393939393939393939393939396939
                  0000396969393910101010101010101010693939000039696969000000000000
                  0000000069693939000039396969007879797978797979696939393900003939
                  3969697903030303030379691039393900003939396969697978797979786969
                  1039393900003939393969696903030369696900103939390000393939390069
                  6969797869697900103939390000393939390079036969696903790010393939
                  0000393939390079796969696978790010393939000039393939007903696969
                  6900000010393939000039393939007869697900696979001039393900003939
                  3939006969697900696969693939393900003939396969697978790079003969
                  6939393900003969696969000000000000393939696939390000396969693939
                  3939393939393939393969390000393939393939393939393939393939393969
                  00003939393939393939393939393939393939390000}
              end
              object DBNitens: TDBNavigator
                Tag = 11
                Left = 728
                Top = 5
                Width = 80
                Height = 23
                VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
                TabOrder = 3
              end
              object stItens: TStaticText
                Left = 603
                Top = 9
                Width = 117
                Height = 20
                Alignment = taRightJustify
                Caption = ' Reg: 10000/10000 '
                TabOrder = 4
              end
            end
            object GroupBox9: TGroupBox
              Left = 6
              Top = 42
              Width = 99
              Height = 56
              Caption = '  Situa'#231#227'o  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 7
              object lbSituacaoItens: TLabel
                Left = 8
                Top = 27
                Width = 84
                Height = 16
                Alignment = taCenter
                AutoSize = False
                Caption = 'ENCERRADO'
              end
            end
            object gbAtendido: TGroupBox
              Left = 108
              Top = 42
              Width = 301
              Height = 56
              Caption = '  Atendido  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 8
              object Label8: TLabel
                Left = 8
                Top = 17
                Width = 66
                Height = 16
                Alignment = taRightJustify
                AutoSize = False
                Caption = 'Quantidade'
              end
              object Label32: TLabel
                Left = 100
                Top = 17
                Width = 69
                Height = 16
                Alignment = taCenter
                Caption = 'Nota Filscal'
              end
              object Label33: TLabel
                Left = 192
                Top = 18
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object DBText9: TDBText
                Left = 8
                Top = 35
                Width = 66
                Height = 17
                Alignment = taRightJustify
                DataField = 'ITENS_PED_QUANTIDADEATEN'
                DataSource = dsItens
              end
              object DBText10: TDBText
                Left = 104
                Top = 35
                Width = 66
                Height = 17
                Alignment = taRightJustify
                DataField = 'ITENS_PED_NF'
                DataSource = dsItens
              end
              object DBText11: TDBText
                Left = 192
                Top = 35
                Width = 66
                Height = 17
                Alignment = taRightJustify
                DataField = 'ITENS_PED_DATAATEND'
                DataSource = dsItens
              end
            end
            object Edit1: TEdit
              Left = 440
              Top = 196
              Width = 134
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 9
              Text = 'Edit1'
            end
            object Edit2: TEdit
              Left = 296
              Top = 196
              Width = 134
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 10
              Text = 'Edit1'
            end
            object Edit3: TEdit
              Left = 8
              Top = 196
              Width = 134
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 11
              Text = 'Edit1'
            end
            object Edit4: TEdit
              Left = 152
              Top = 196
              Width = 134
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 12
              Text = 'Edit1'
            end
            object Edit5: TEdit
              Left = 153
              Top = 150
              Width = 631
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 13
              Text = 'Edit1'
            end
            object RxDBCalcEdit1: TRxDBCalcEdit
              Tag = 10
              Left = 314
              Top = 247
              Width = 129
              Height = 23
              DataField = 'ITENS_PED_VALOR_TOTAL'
              DataSource = dsItens
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '#,##0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 14
            end
            object RxDBCalcEdit3: TRxDBCalcEdit
              Tag = 10
              Left = 450
              Top = 247
              Width = 129
              Height = 23
              DataField = 'ITENS_PED_VALOR_TOTAL'
              DataSource = dsItens
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '#,##0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 15
            end
          end
          object TValores2: TTabSheet
            Caption = 'Valores'
            ImageIndex = 3
            TabVisible = False
          end
          object TComplemento: TTabSheet
            Caption = '  Complemento  '
            ImageIndex = 2
            TabVisible = False
            object Label28: TLabel
              Left = 4
              Top = 69
              Width = 24
              Height = 16
              Caption = 'Obs'
            end
            object DBMemo1: TDBMemo
              Left = 5
              Top = 86
              Width = 656
              Height = 92
              Ctl3D = False
              DataField = 'PED_OBS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 0
            end
          end
          object Tvalores: TTabSheet
            Caption = 'Valores'
            ImageIndex = 6
            object Label22: TLabel
              Left = 10
              Top = 10
              Width = 91
              Height = 16
              Caption = 'Valor total Itens'
            end
            object Label23: TLabel
              Left = 10
              Top = 41
              Width = 121
              Height = 16
              Caption = 'Valor Outros Valores'
            end
            object Label26: TLabel
              Left = 10
              Top = 102
              Width = 107
              Height = 16
              Caption = 'Valor do Desconto'
            end
            object Label27: TLabel
              Left = 10
              Top = 162
              Width = 62
              Height = 16
              Caption = 'Valor Final'
            end
            object Label38: TLabel
              Left = 10
              Top = 132
              Width = 93
              Height = 16
              Caption = 'Valor do Cr'#233'dito'
            end
            object Label25: TLabel
              Left = 10
              Top = 72
              Width = 64
              Height = 16
              Caption = 'Valor Frete'
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 264
    Top = 464
  end
  inherited dsCadastro: TDataSource
    Left = 136
    Top = 464
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from pedido')
    Left = 176
    Top = 464
  end
  inherited dspCadastro: TDataSetProvider
    Left = 104
    Top = 464
  end
  inherited cdsCadastro: TClientDataSet
    Left = 216
    Top = 464
    object cdsCadastroPED_CODIGO: TIntegerField
      Alignment = taCenter
      FieldName = 'PED_CODIGO'
    end
    object cdsCadastroPED_FORNECEDOR: TIntegerField
      FieldName = 'PED_FORNECEDOR'
    end
    object cdsCadastroPED_TRANSPORTADORA: TIntegerField
      FieldName = 'PED_TRANSPORTADORA'
    end
    object cdsCadastroPED_OBS: TStringField
      FieldName = 'PED_OBS'
      Size = 255
    end
    object cdsCadastroPED_DATA: TDateTimeField
      FieldName = 'PED_DATA'
    end
    object cdsCadastroPED_NF: TStringField
      FieldName = 'PED_NF'
      Size = 10
    end
    object cdsCadastroPED_DATAENTREGA: TDateTimeField
      FieldName = 'PED_DATAENTREGA'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroPED_SITUACAO: TIntegerField
      FieldName = 'PED_SITUACAO'
    end
    object cdsCadastroPED_DATASITUACAO: TDateTimeField
      FieldName = 'PED_DATASITUACAO'
    end
    object cdsCadastroPED_LOCAL: TIntegerField
      FieldName = 'PED_LOCAL'
    end
    object cdsCadastroPED_VALOR_TOT_ITENS: TFloatField
      FieldName = 'PED_VALOR_TOT_ITENS'
    end
    object cdsCadastroPED_VALOR_TOT_OUTROS_VALORES: TFloatField
      FieldName = 'PED_VALOR_TOT_OUTROS_VALORES'
    end
    object cdsCadastroPED_VALOR_DESC0NTO: TFloatField
      FieldName = 'PED_VALOR_DESC0NTO'
    end
    object cdsCadastroPED_VALOR_CREDITO: TFloatField
      FieldName = 'PED_VALOR_CREDITO'
    end
    object cdsCadastroPED_VALOR_PEDIDO: TFloatField
      FieldName = 'PED_VALOR_PEDIDO'
    end
    object cdsCadastroPED_VALOR_TOT_IPI: TFloatField
      FieldName = 'PED_VALOR_TOT_IPI'
    end
    object cdsCadastroPED_SOLICITANTE_DESC: TStringField
      FieldName = 'PED_SOLICITANTE_DESC'
      Size = 60
    end
    object cdsCadastroPED_FORNECEDOR_DESC: TStringField
      FieldName = 'PED_FORNECEDOR_DESC'
      Size = 60
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroPED_ORIGEM: TStringField
      FieldName = 'PED_ORIGEM'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_VALORFRETE: TFloatField
      FieldName = 'PED_VALORFRETE'
    end
    object cdsCadastroPED_COMPRADOR: TStringField
      FieldName = 'PED_COMPRADOR'
    end
    object cdsCadastroPED_TIPO: TStringField
      FieldName = 'PED_TIPO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_SOLICITACAO: TIntegerField
      FieldName = 'PED_SOLICITACAO'
    end
    object cdsCadastroPED_DATASOLICITACAO: TDateTimeField
      FieldName = 'PED_DATASOLICITACAO'
    end
    object cdsCadastroPED_QTDSOLICITACAO: TIntegerField
      FieldName = 'PED_QTDSOLICITACAO'
    end
    object cdsCadastroPED_CONDPAGTO: TStringField
      FieldName = 'PED_CONDPAGTO'
    end
    object cdsCadastroPED_PERCONDPAGTO: TStringField
      FieldName = 'PED_PERCONDPAGTO'
    end
    object cdsCadastroPED_CRITERIO: TIntegerField
      FieldName = 'PED_CRITERIO'
    end
    object cdsCadastroPED_FECHAMENTO: TStringField
      FieldName = 'PED_FECHAMENTO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_CONTATO: TStringField
      FieldName = 'PED_CONTATO'
    end
    object cdsCadastroPED_AUT1_SITUACAO: TStringField
      FieldName = 'PED_AUT1_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_AUT1_AUTORIZANTE: TIntegerField
      FieldName = 'PED_AUT1_AUTORIZANTE'
    end
    object cdsCadastroPED_AUT1_AUTORI_DESC: TStringField
      FieldName = 'PED_AUT1_AUTORI_DESC'
      Size = 40
    end
    object cdsCadastroPED_AUT1_DATA: TDateTimeField
      FieldName = 'PED_AUT1_DATA'
    end
    object cdsCadastroPED_AUT1_OBS: TStringField
      FieldName = 'PED_AUT1_OBS'
      Size = 200
    end
    object cdsCadastroPED_AUT2_SITUACAO: TStringField
      FieldName = 'PED_AUT2_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_AUT2_AUTORIZANTE: TIntegerField
      FieldName = 'PED_AUT2_AUTORIZANTE'
    end
    object cdsCadastroPED_AUT2_AUTORI_DESC: TStringField
      FieldName = 'PED_AUT2_AUTORI_DESC'
      Size = 40
    end
    object cdsCadastroPED_AUT2_DATA: TDateTimeField
      FieldName = 'PED_AUT2_DATA'
    end
    object cdsCadastroPED_AUT2_OBS: TStringField
      FieldName = 'PED_AUT2_OBS'
      Size = 200
    end
    object cdsCadastroPED_AUT3_SITUACAO: TStringField
      FieldName = 'PED_AUT3_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPED_AUT3_AUTORIZANTE: TIntegerField
      FieldName = 'PED_AUT3_AUTORIZANTE'
    end
    object cdsCadastroPED_AUT3_AUTORI_DESC: TStringField
      FieldName = 'PED_AUT3_AUTORI_DESC'
      Size = 40
    end
    object cdsCadastroPED_AUT3_DATA: TDateTimeField
      FieldName = 'PED_AUT3_DATA'
    end
    object cdsCadastroPED_AUT3_OBS: TStringField
      FieldName = 'PED_AUT3_OBS'
      Size = 200
    end
    object cdsCadastroPED_AUT_SITUACAO: TStringField
      FieldName = 'PED_AUT_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroPED_FRETE: TIntegerField
      FieldName = 'PED_FRETE'
    end
    object cdsCadastroPED_SOLICITANTE: TStringField
      FieldName = 'PED_SOLICITANTE'
      Size = 60
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 48
    Top = 464
  end
  inherited OpenDialog1: TOpenDialog
    Left = 312
    Top = 464
  end
  object cdsItens: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'ITENS_PED_PEDIDO'
    MasterFields = 'PED_CODIGO'
    MasterSource = dsCadastro
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspItens'
    Left = 800
    Top = 408
    object cdsItensITENS_PED_CODIGO: TIntegerField
      Alignment = taCenter
      FieldName = 'ITENS_PED_CODIGO'
    end
    object cdsItensITENS_PED_PEDIDO: TIntegerField
      FieldName = 'ITENS_PED_PEDIDO'
    end
    object cdsItensITENS_PED_PRODUTO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'ITENS_PED_PRODUTO'
    end
    object cdsItensITENS_PED_QUANTIDADE: TFloatField
      Alignment = taCenter
      DisplayLabel = 'Quant.'
      FieldName = 'ITENS_PED_QUANTIDADE'
    end
    object cdsItensITENS_PED_QUANTIDADEATEN: TFloatField
      Alignment = taCenter
      DisplayLabel = 'Atendido'
      FieldName = 'ITENS_PED_QUANTIDADEATEN'
    end
    object cdsItensITENS_PED_VALOR: TFloatField
      DisplayLabel = 'Vr. Unitario'
      FieldName = 'ITENS_PED_VALOR'
      DisplayFormat = '#,##0.0000'
    end
    object cdsItensITENS_PED_SITUACAO: TIntegerField
      FieldName = 'ITENS_PED_SITUACAO'
    end
    object cdsItensITENS_PED_VALOR_TOTAL: TFloatField
      DisplayLabel = 'Vr. Total'
      FieldName = 'ITENS_PED_VALOR_TOTAL'
      DisplayFormat = '#,##0.00'
    end
    object cdsItensITENS_PED_LOCAL: TIntegerField
      FieldName = 'ITENS_PED_LOCAL'
    end
    object cdsItensITENS_PED_OUTROS_VALORES: TFloatField
      FieldName = 'ITENS_PED_OUTROS_VALORES'
    end
    object cdsItensITENS_PED_PERC_IPI: TFloatField
      FieldName = 'ITENS_PED_PERC_IPI'
    end
    object cdsItensITENS_PED_VALOR_IPI: TFloatField
      FieldName = 'ITENS_PED_VALOR_IPI'
    end
    object cdsItensITENS_PED_NF: TStringField
      FieldName = 'ITENS_PED_NF'
    end
    object cdsItensUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsItensUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsItensUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsItensDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsItensDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsItensDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsItensEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsItensITENS_PED_PRODUTO_DESC: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      DisplayWidth = 40
      FieldName = 'ITENS_PED_PRODUTO_DESC'
      Size = 60
    end
    object cdsItensITENS_PED_DATAATEND: TDateTimeField
      FieldName = 'ITENS_PED_DATAATEND'
    end
    object cdsItensITENS_PED_NFATEND: TIntegerField
      FieldName = 'ITENS_PED_NFATEND'
      DisplayFormat = '000000'
    end
  end
  object dspItens: TDataSetProvider
    DataSet = QItens
    Left = 800
    Top = 376
  end
  object QItens: TQuery
    Active = True
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT *'
      'FROM'
      '  ITENSPEDIDO'
      'WHERE'
      '  ITENSPEDIDO.ITENS_PED_PEDIDO = :PED_CODIGO')
    Left = 800
    Top = 344
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ITENS_PED_PEDIDO'
        ParamType = ptUnknown
        Value = 1
      end>
  end
  object dsItens: TDataSource
    AutoEdit = False
    DataSet = cdsItens
    OnStateChange = dsItensStateChange
    OnDataChange = dsItensDataChange
    Left = 800
    Top = 312
  end
  object DSProduto_Mercadoria: TDataSource
    DataSet = DMGestao.QProdutoEnt
    OnDataChange = DSProduto_MercadoriaDataChange
    Left = 571
    Top = 472
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 744
    Top = 472
  end
  object DSTransportadora: TDataSource
    DataSet = DMGestao.QTransportadora
    Left = 720
    Top = 296
  end
end
